5 DV=PEEK(186):IFDV<8THENDV=8
10 PRINTCHR$(14)
20 PRINT"[147]PRINT TO S[146]CREEN OR P[146]RINTER";:INPUTP$
30 IFP$<>"S"ANDP$<>"P"THEN20
40 IFP$="P"THEN60
50 OPEN1,3:GOTO70
60 OPEN1,4,7
70 OPEN2,DV,8,"GEAR DOCS SEQ"
80 GET#2,A$:SS=ST:PRINT#1,A$;:IFSS=0THEN80
90 PRINT#1:CLOSE1
100 CLOSE2